with Zapatos, Estanterias, Comunes;
use Zapatos, Estanterias, Comunes;

package Zapateros is
	task type TareaZapatero is
		entry Init(EstanteriaZapatosAReparar: in TareaEstanteria_Ref; EstanteriaZapatosARepartir: in TareaEstanteriaInfinita_Ref;  Nombre: in Str100.Bounded_String);
	end TareaZapatero;
end Zapateros;

